运用VBA批量提取sheet1中所有批注，并在sheet2中罗列处理：

1,原始数据：

2，程序：

Sub pizhu() Dim i As Integer, comm As Comment For Each comm In ActiveSheet.Comments i = i + 1 Sheets(2).Cells(i, 1) = comm.Parent.Comment.Text NextEnd Sub

3，运行后sheet2中的结果：

您好，很高兴为您解答！

你好：可以按住ctrl键，多选有批注的单元格，点右键删掉批注。

也可以复制一个对的批注，然后，再用上边方法"选择性粘贴"批注。把批注批量复制到选中的单元格。(这个功能在excel里有）

论文排版、模版下载、论文遇到难题，解决方法：http://docer.wps.cn/zt/lunwen?from=qyzd更多WPS办公软件教程，请访问：http://bbs.wps.cn或者http://e.weibo.com/wpswfw

如有疑问，请点击我的头像提问。祝您生活愉快！